home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / def / gemlib / vdiraste.def < prev    next >
Encoding:
Modula Definition  |  1994-09-22  |  1.5 KB  |  51 lines
  1. DEFINITION MODULE VDIRasters;
  2.  
  3. FROM SYSTEM     IMPORT ADDRESS;
  4.  
  5. FROM GEMVDIbase IMPORT BigPxyArrayType, SmallArrayType;
  6.  
  7.  
  8. TYPE
  9.   MFDBType = RECORD                (* memory form definition block *)
  10.                pointer: ADDRESS;   (* address of first plane       *)
  11.                width:   CARDINAL;  (* form width in pixels         *)
  12.                height:  CARDINAL;  (* form height in pixels        *)
  13.                widthW:  CARDINAL;  (* form width in words          *)
  14.                format:  CARDINAL;  (* format, 0 = device specific
  15.                                               1 = standard format  *)
  16.                planes:  CARDINAL;  (* number of memory planes      *)
  17.                rsrvd1:  CARDINAL;
  18.                rsrvd2:  CARDINAL;
  19.              END;
  20.  
  21.   MFDBptr  = POINTER TO MFDBType;
  22.  
  23.  
  24. (* raster operations *)
  25.  
  26. PROCEDURE CopyRasterOpaque (Handle, WrMode: INTEGER;
  27.                             VAR PxyArray: BigPxyArrayType;
  28.                             psrcMFDB, pdesMFDB: ADDRESS);
  29.  
  30. (* copy raster, opaque *)
  31.  
  32.  
  33. PROCEDURE CopyRasterTransparent (Handle, WrMode: INTEGER;
  34.                                  VAR PxyArray: BigPxyArrayType;
  35.                                  VAR psrcMFDB, pdesMFDB: ADDRESS;
  36.                                  VAR colourIndex: SmallArrayType);
  37.  
  38. (* copy raster, transparent *)
  39.  
  40.  
  41. PROCEDURE TransformForm (Handle: INTEGER; psrcMFDB, pdesMFDB: ADDRESS);
  42.  
  43. (* transform form *)
  44.  
  45.  
  46. PROCEDURE GetPixel (Handle, x, y: INTEGER; VAR pel, index: INTEGER);
  47.  
  48. (* get pixel *)
  49.  
  50. END VDIRasters.
  51.